home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Testers / Gen-expansion-var Tester < prev    next >
Lisp/Scheme  |  1998-10-26  |  597b  |  27 lines
  1. (def-orchestra 'orchestra
  2.    all-instruments (piano)
  3. )
  4.  
  5. (setq symbols
  6.       (gen-expansion-parallel-var 
  7.        3 3 
  8.        (flatten (cons-n (gen-random 0.5 8 '(a b c d e)) 20))
  9.        (list (gen-random 0.51 8 '(a b c d e))
  10.              (symbol-inversion 'a (gen-random 0.51 8 '(a b c d e))))))
  11.  
  12. (def-section sect-a
  13.    default
  14.       zone (lsym-correct (* (length symbols) (get-ratio '1/16 :ratio)))
  15.       tonality (activate-tonality (major c 4))
  16.       length '(1/16)
  17.       velocity '(64)
  18.    piano
  19.       symbol symbols 
  20. )
  21.  
  22. (midiport :printer)
  23.  
  24. (play-file-p "my song"
  25.    all-instruments '(sect-a)
  26. )
  27.